home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / AGETST.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  124 lines
  1. 5 REM ==> PROGRAM BY JIM BRANBERG FROM THE WINTER '83 ISSUE OF POWER/PLAY <==
  2. 6 REM ==> BASED ON AN ARTICLE IN THE 8/82 ISSUE OF 'CHANGING TIMES' FOR VIC <==
  3. 7 REM ==> C-64 VERSION 7/20/85
  4. 10 Z=.:POKE53280, 20:POKE53281,14
  5. 15 PRINT"[147][151]        WHAT'S YOUR MEDICAL AGE?        "
  6. 20 PRINTTAB(9);:INPUT"YOUR PRESENT AGE";A
  7. 25 PRINTTAB(9)"DISPOSITION
  8. 30 [153][163]10)"1. EASY GOING":[153][163]10)"2. AVERAGE
  9. 35 PRINTTAB(10)"3. TENSE OFTEN":GOSUB703
  10. 40 IFB=1THENZ=Z-3
  11. 45 IFB=3THENZ=Z+6
  12. 50 PRINTTAB(9)"EXERCISE
  13. 55 [153][163]9)" 1. ACTIVE EMPLOYMENT,":[153][163]13)" OR REG. EXERCISE
  14. 60 PRINTTAB(10)"2. MODERATE
  15. 65 [153][163]10)"3. NONE":[141]703
  16. 70 [139]B[178]1[167]Z[178]Z[171]12
  17. 75 [139]B[178]3[167]Z[178]Z[170]12
  18. 80 [153][163]9)"HOME ENVIROMENT
  19. 85 PRINTTAB(10)"1. PLEASANT":PRINTTAB(10)"2. AVERAGE
  20. 95 [153][163]10)"3. UNUSUAL TENSION":[141]703
  21. 100 [139]B[178]1[167]Z[178]Z[171]6
  22. 105 [139]B[178]3[167]Z[178]Z[170]9
  23. 110 [153][163]9)"JOB SATISFACTION
  24. 115 PRINTTAB(10)"1. ABOVE AVERAGE":PRINTTAB(10)"2. AVERAGE
  25. 125 [153][163]10)"3. DISCONTENTED":[141]703
  26. 130 [139]B[178]1[167]Z[178]Z[171]3
  27. 135 [139]B[178]3[167]Z[178]Z[170]6
  28. 140 [153][163]9)"AIR POLLUTION
  29. 145 PRINTTAB(10)"1. NO EXPOSURE":PRINTTAB(10)"2. MODERATE CONTACT
  30. 150 [153][163]10)"3. SUBSTANTIAL":[153][163]14)"EXPOSURE":[141]703
  31. 155 [139]B[178]2[167]Z[178]Z[170]3
  32. 157 [139]B[178]3[167]Z[178]Z[170]9
  33. 160 [153][163]9)"SMOKING HABITS
  34. 165 PRINTTAB(10)"1. NONSMOKER":PRINTTAB(10)"2. OCCASIONAL
  35. 170 [153][163]10)"3. ONE PACK A DAY
  36. 180 PRINTTAB(10)"4. 2 PACKS, OR MORE":GOSUB704
  37. 185 IFB=1THENZ=Z-6
  38. 190 IFB=3THENZ=Z+12
  39. 195 IFB=4THENZ=Z+24
  40. 200 PRINTTAB(9)"DRINKING HABITS
  41. 205 [153][163]9)" 1. SELDOM":[153][163]9)" 2. MODERATE
  42. 215 PRINTTAB(9)" 3. HEAVY":GOSUB703
  43. 220 IFB=1THENZ=Z-6
  44. 225 IFB=2THENZ=Z+6
  45. 230 IFB=3THENZ=Z+24
  46. 235 PRINTTAB(9)"EATING HABITS
  47. 240 [153][163]9)" 1. LOW FAT DIET":[153][163]9)" 2. HIGH PROTEIN":[153][163]13)" INTAKE
  48. 250 PRINTTAB(10)"3. HIGH CHOLESTEROL":PRINTTAB(14)"INTAKE":GOSUB703
  49. 255 IFB=1THENZ=Z-6
  50. 260 IFB=2THENZ=Z+6
  51. 265 IFB=3THENZ=Z+6
  52. 270 PRINTTAB(9)"CAFFEINE INTAKE
  53. 275 [153][163]9)" 1. LOW":[153][163]9)" 2. MODERATE (2 CUPS)
  54. 285 PRINTTAB(9)" 3. HEAVY (4 CUPS+)":GOSUB703
  55. 290 IFB=2THENZ=Z+2
  56. 295 IFB=3THENZ=Z+6
  57. 300 PRINTTAB(9)"DRIVING
  58. 305 [153][163]9)" 1. 20,000 MILES OR":[153][163]14)"LESS W/SEATBELTS
  59. 310 PRINTTAB(10)"2. 20,000 OR LESS":PRINTTAB(14)"NO SEATBELTS WORN
  60. 315 [153][163]10)"3. 20,000+ MILES":[141]703
  61. 320 [139]B[178]1[167]Z[178]Z[171]3
  62. 325 [139]B[178]3[167]Z[178]Z[170]12
  63. 330 [153][163]9)"DRUG ABUSE
  64. 335 PRINTTAB(9)" 1. NONE":PRINTTAB(10)"2. MODERATE":PRINTTAB(10)"3. HEAVY
  65. 350 [153][163]10)"4. NARCOTICS ":[141]704
  66. 355 [139]B[178]2[167]Z[178]Z[170]12
  67. 360 [139]B[178]3[167]Z[178]Z[170]24
  68. 365 [139]B[178]4[167]Z[178]Z[170]36
  69. 400 [153]"   FAMILY & SOCIAL HISTORY INVENTORY "
  70. 405 [153][163]9)"FATHER
  71. 410 PRINTTAB(10)"1. ALIVE & OVER 68
  72. 415 [153][163]10)"2. UNDER 68 & ALIVE,":[153][163]14)"OR DEAD AT 68+
  73. 420 PRINTTAB(10)"3. DEAD OF MEDICAL":PRINTTAB(14)"CAUSES UNDER 68":GOSUB703
  74. 425 IFB=1THENZ=Z-3
  75. 430 IFB=3THENZ=Z+3
  76. 435 PRINTTAB(9)"MOTHER
  77. 440 [153][163]10)"1. ALIVE & OVER 73
  78. 445 PRINTTAB(10)"2. ALIVE & UNDER 73,":PRINTTAB(14)"OR DEAD AT 73+
  79. 450 [153][163]10)"3. DEAD OF MEDICAL":[153][163]14)"CAUSES UNDER 73":[141]703
  80. 455 [139]B[178]1[167]Z[178]Z[171]3
  81. 460 [139]B[178]3[167]Z[178]Z[170]3
  82. 465 [153][163]9)"MARITAL STATUS
  83. 470 PRINTTAB(10)"1. SINGLE":PRINTTAB(10)"2. MARRIED":GOSUB702
  84. 480 IFB=1ANDA>39THENZ=Z+6
  85. 485 PRINTTAB(9)"RESIDENCE
  86. 490 [153][163]10)"1. IN LARGE CITY":[153][163]10)"2. IN SUBURB
  87. 500 PRINTTAB(10)"3. FARM OR SMALL":PRINTTAB(14)"TOWN":GOSUB703
  88. 505 IFB=1THENZ=Z+6
  89. 510 IFB=3THENZ=Z-3
  90. 530 PRINTTAB(9)"  PHYSICAL INVENTORY  "
  91. 535 PRINTTAB(9)"WEIGHT[146], THINK OF YOUR":PRINTTAB(9)"'IDEAL' WEIGHT AT AGE 20
  92. 540 [153][163]10)"1. SAME NOW, OR GAIN OF":[153][163]14)"LESS THAN 10 LBS.
  93. 545 PRINTTAB(10)"2. 20 LBS. OVER
  94. 550 [153][163]10)"3. 40 LBS. OR MORE":[141]703
  95. 555 [139]B[178]1[167]Z[178]Z[171]3
  96. 560 [139]B[178]2[167]Z[178]Z[170]6
  97. 565 [139]B[178]3[167]Z[178]Z[170]15
  98. 570 [153][163]9)"BLOOD PRESSURE
  99. 575 IFA<40THENPRINTTAB(10)"1. ABOVE 130/80
  100. 580 [139]A[177]39[167][153][163]10)"1. ABOVE 140/90
  101. 585 PRINTTAB(10)"2. NO":GOSUB702
  102. 595 IFB=1THENZ=Z+12
  103. 600 PRINTTAB(9)"CHOLESTEROL
  104. 605 [139]A[179]40[167][153][163]10)"1. ABOVE 220
  105. 610 IFA>39THENPRINTTAB(10)"1. ABOVE 250
  106. 615 [153][163]10)"2. NO":[141]702
  107. 620 [139]B[178]1[167]Z[178]Z[170]6
  108. 630 [153][163]9)"HEART
  109. 635 PRINTTAB(10)"1. HEART MURMUR
  110. 640 [153][163]10)"2. MURMUR W/HISTORY OF":[153][163]14)"RHEUMATIC FEVER
  111. 645 PRINTTAB(10)"3. NEITHER":GOSUB703
  112. 650 IFB=1THENZ=Z+24
  113. 655 IFB=2THENZ=Z+48
  114. 660 GOTO 1000
  115. 702 B=.:PRINTTAB(10)"";:INPUT"(1 OR 2)";B:RETURN
  116. 703 B=.:PRINTTAB(10)"";:INPUT"(1, 2, OR 3)";B:RETURN
  117. 704 B=.:PRINTTAB(10)"";:INPUT"(1, 2, 3, OR 4)";B:RETURN
  118. 1000 PRINTTAB(9)"REG. MEDICAL CHECKUP
  119. 1005 [153][163]10)"1. COMPLETE":[153][163]10)"2. PARTIAL
  120. 1015 PRINTTAB(10)"3. NO":GOSUB703
  121. 1020 IFB=1THENZ=Z-12
  122. 1025 IFB=2THENZ=Z-6
  123. 1500 A$=STR$((Z/12)+A):PRINTTAB(9)" YOUR MEDICAL AGE IS:[146]";LEFT$(A$,6):END
  124.